R Notebook

    library(readr); library(dplyr); library(stringr); library(lubridate)

plasticContainer <- list(
  greenBox=c("paper","scissor"),     # location 1
  redBox=c(1L,3L,2.5),               # location 2
  blueBox=c(TRUE,FALSE,TRUE,TRUE)    # location 3
)

plasticContainer[c("greenBox")] # or plasticContainer[c(1,2)]

$greenBox
[1] "paper"   "scissor"

plasticContainer[["greenBox"]] # or plasticContainer[[1]]

[1] "paper"   "scissor"

plasticContainer$greenBox

[1] "paper"   "scissor"

#如果上面要取出paper，請問要怎麼延伸拿取？ans1
plasticContainer[["greenBox"]][1]

[1] "paper"

#如果上面要取出paper，請問要怎麼延伸拿取？ans2
plasticContainer$greenBox[1]

[1] "paper"

#如果上面要取出paper，請問要怎麼延伸拿取？wrong version
plasticContainer["greenBox"][1] #1是指greenbox

$greenBox
[1] "paper"   "scissor"

#如果上面要取出paper，請問要怎麼延伸拿取？ans3
plasticContainer["greenBox"]$greenBox[1]

[1] "paper"

#如果上面要取出paper，請問要怎麼延伸拿取？ans4
plasticContainer["greenBox"][["greenBox"]][1]

[1] "paper"

我是分隔線

    install.packages("plotly")

Error in install.packages : Updating loaded packages

download.file("https://github.com/tpemartin/github-data/blob/master/plotly_4070_neda.Rda?raw=true",destfile = "plotly_4070_neda.Rda")

嘗試 URL 'https://github.com/tpemartin/github-data/blob/master/plotly_4070_neda.Rda?raw=true'
Content type 'application/octet-stream' length 12400 bytes (12 KB)
==================================================
downloaded 12 KB

load("plotly_4070_neda.Rda")
library(plotly)
plotly_4070_neda